

















a sas N=8327686 EC=375222 PAGE O1A 
ie a cat ace ia P/N=8327686 EC=375222 eae on 17069 GENERAL UTILITY P/ 37522 Sean 
STMT SOURCE STATEMENT COPYR 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT oti Smee cee kee 
| A OINT TO MAP 
3 COPY  LOG7A69 ** MAP EC HISTORY ** ge: eoeOUe. 2208 4G0 POE PERT EE Ly ee OEE TEE POLY LE Te IE PT PEEL Seep e PLL | eee 
4 ie eee ONT TE er Pee Ce ee ae Ce ee, Cee yee sad 200 AEEEEHAR SEEN ERER EA ERED ER EATERS EERE SEED EERE ESSE ASAE EIA TEN EEE RE REE EEE 
201 ¥* 
Q # £* x PREREQUISITES #4* : 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) ** 
ee: " 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER ** 
8 NONE ’ 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR = #4 
10 SECURE TONES PSOCLEO LENSE SS EERES SAS EUS AER S LUSTER RRALD TARE STEREO RESALES 208 vip SoRpOcR THEy REED THERE ARE FOUR TABLES USED FO * 
207 ** 
13 - oo a : $09 ¥* YO TNTS TABLE GIVES THE ADDPESS OF THE RULE TO INVOKE AND 9 ¥# 
ee MERGES. BORE 2 CORRES BRBORS. EDN a Here on coaae : 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ** 
a6 i a a a a a cto oe be ENTRIES ake “aN ADDRESS OF THE RULE Dc START or * 
213 ** B TH P iR 
1g * £4% REA'S INCORPORATED 4% * 21 +s C) AN EQUATE FOR THE STEP NUMBER ** 
2 * x 
20 * NONE : 216 ** RULE INFORMATION TABLE Peet ida ee et 
22 siadahdidaihditodadhdidhdniaiadnindniededadadiedaietedededededededededeletaiadededadedhedbiidededhlidhninindninindainindniaindai oan .. THE APPROPRIATE RULE ONDER ADT. EACH RULE AAS Its OWN * 
219 ** NIQUELY DE 
ae ete See aan, © eee : 220 + INDICATED WITH A X'OOOO" FOR THE RULE’ EQUATE. *% 
55 ane : 222 ** SQUES aaa ++ 
og SUR TONE Oe e ke Ge eee IND ree Mee ee Pe ny Ce a ge feet ae em ee ee rT — CODERS Oe Eee eae LEG RULE vba 
%* & 
22 % & 
32 * DATE 17AUG78 DATE 020CT78 DATE 10JAN79 DATE * +x 
33 + E.C. 755391 E.C. 375102 E.C. 375222 £E.C. * 228 is B} ADDRESS OF MESSAGE TO PRINT ** 
a3 PONEEENEY ENET ET EAS SEL CLEERERE SEES ENP EA OAT EON EAST ECAES SEC ee ete E ET eee et He SSTOP A) RULE EQUATE x*0102° ce 
000100 34 doves  EQU x+0100" EQUATED VALUE FOR MDI STATEMENT 232 *# bB} ADDRESS OF MESSAGE = 
000101 39 Bfrxr OU xtOl0T" EQUATED VALUE FOR MDI STATEMENT eee ae6ne *% 
000102 40 @STOP EQU  <X*0102° EQUATED VALUE FOR MDI STATEMENT oe .* 
0200" EQUATED VALUE FOR MDI STATEMENT oo ae Bl ADWRESS Gn uneca 
$0004 42 CALL «= «EOD «X803018 EQUATED VALUE FOR MDI STATEMENT ees el awe Oe aan eo nO ps 
000300 43 @INPT  EQU xX*0300" SURED. Ware o von aT eae eae 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE +** 
000500 45 BRUXk  EOU x*0500" EQUATED VALUE FOR MDI STATEMENT 249 Py) pe dann LOR Renney on SN eRNE bh REL ERERCE +4 
000600 46 O@NVLD EQU. X*0600t EQUATED VALUE FOR MDI STATEMENT are eins SCALL #4 
000000 47 EQ EQU X* 0000! See ron eon Sound: 243 ** A) RULE EQUATE X'0201' ** 
000004 48 NE EQU X'0004' a ee yee if Q Fug *x BJ ADDRESS OF MESSAGE ** 
000008 49 HT EQU = -X4 0008" eee SOn NOM BTCA 245 3% C) NAME OF MAP TO CALL ** 
00000C 29 NE Se he SeUATE Pot. con 246 ¥* D) ENTRY POINT WITHIN CALLED MAP TO USE + 
990010 euahe eo ee EOUATE FOR NOt LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE «* 
000010 53 Lt FOU =X" 00108 EQUATE FOR LESS THAN cen SINPT ++ 
00000C 54 LE EOU xX*O00C! EQUATE FOR LESS THAN OR EQUAL TO ; ; a 
5 EQU x*0008" EQUATE FOR GREATER THAN a ae ee eee 
eee 22 GE Su xeo01ds EQUATE FOR GREATER THAN OR EQUAL TO 2a Ol EO RERSE OF core Cote : aes 
000014 56 GE EQU = xr OOIue EQUATE FOR ON 352 x C} ADDRESS OF YES LEG RULE + 
BiBst8 ee eee EULEE 7S) Sk $54 33 B| PREeI ape rectegee OF Taree mara : 
$0000 é0 EB EOU  X*0000" EQUATE FOR EBCDIC DATA TRANSFER Zo os Ch Hee RTT THR Ob eOnn DLs Ge 
900004 81 HES FOU = X'0001" EQUATE FOR HEX DATA TRANSFER e064 Bh a Sena ane On ROOD Date ** 
000001 62 XTRNL EQU x*0001" EQUATE FOR EXTERNAL REFERENCE Seas $ 0UXX ++ 
000000 63 INTRNL EQU xX*0000! EQUATE FOR INTERNAL REF FRENCE ; ** 
000000 64 PARM EQU X*00008 EQUATE INDICATING PARAMETER ee BA aDEHoe oe ee Toe nate np 
500002 ee UA FOU © X*0002" EQUATE FOR UNIT ADDRESS 261 *# C} TU BRANCH TO ADDRESS SEE onSKh ** 
nthe e§ DD FOU © -X* 0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) ** 
001800 23 PID, = EQU. «= #-¥" OOO " ADDRESS OF MDI HEADER A ees Fl SRELEBTER GO bese S07 “* 
000232 70 PTYPE  EOQU *-X'22CE" ADDRESS OF PROCESSOR TYPE FIELD eds Cl enone aanaEee cee ve 
01800 71 STEPNUM EQU PID+X*000C" ADDRESS OF DECIMAL STEP NUMBER 269.25 PE Ca Van, pOuneo Se. Boe EIRae & MORDS OFARRAAnet ee re 
00180E 72 OPWD1 EQU PID+X'OOOE! ADDRESS OF OPTION WORD ONE pecs ‘niy ++ 
001810 73 OPWD2 EQU  PID+X'0010' ADDRESS OF OPTION WORD TWO ; ++ 
TUS EQU PID+X'0018! ADDRESS OF TU STATUS WORD 7 aes By hone oe wee eee 
SO18TE 48 TUWORK. FOU  PID#X*OOTA' ADDRESS OF TU WORK AREA ch eet oy Gu SBRECH Wo TBDcCel vibe 
OO189R 7@ TUPARHT HOU  PIDtK*OO9At ADDRESS OF PARM 1 POINTER oS DiPeSE OP COMGERO cole 7 
001898 ee FOU pID+x'009C* ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKF ON RESULTS ** 
00189C 77 TUPARN2 EQU X' 0098! ADDRESS OF PARM 3 POINTER 272 ¥*% E) LENGTH OF COMPARED RESULTS ** 
erate 78 TUPARNG HOU  PEDEx*OOAO' ADDRESS OF PARM 4 POINTER ata ee nt pEHOTH OP PAeNSrEn EE cs 
0018A0 Acca enoue. <cao ee neegonce ADDRESS OF PARM S POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES +* 
Oo 18 ke B1 TUPARMG FOU  PID?x"OOAG* ADDRESS OF PARM 6 POINTER aoe E\ SRGEE AnDRECS GOn rhea ee pe 
OO1BAG B2 TUPARMT QU  PIDEX*OORG' ADDRESS OF PARM 7 POINTER BIO ee Pn were eee renee 2 Renee OP Peek eTee pea 
001848 83 TUPARN8 FOU PID+X'QOA8! ADDRESS OF PARM 8 POINTER Ee ite SNVLD «x 
a8 1k ge HUPANES, $00 BEDsEVGoHA: = ABDRESS OF PARY 9 PCEVEEE Ha te n) RULE EQUATE X+0600 :t 
OO 1BAE 86 TUPARHT1 EOU PID+X'OOAE! ADDRESS OF PARM 11 POINTER So aL) (euanye Sipe uneTE a 
0018B0 Ea ee ee oe ABR EEee OP Drne 4a-nCe Neon 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT ¥*% 
0018B2 88 TUPARM s10GR4" ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018B6 50 TUPARNIS EOQU  PIDIX* OOBGt ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES:  *% 
0018B8 91 TUPARN16 EQU PID+X'00BB' ADDRESS OF PARM 16 POINTER tee A) NAME OF ENTRY POINT +x 
OO18BE 93 TOUR, EOU © PID+X* O0BEt ADDRESS OF UNIT ADDRESS IN EBC. 288 +4 B) ADDRESS OF ENTRY POINT RULE TABLE +s 
0018C0 94 TUDA FOU © PID#X*00COt ADDRESS OP DEVICE ADDRESS IN EBC Sona ; ' £* 
0018C2 95 TUBUFF FOU PID+X'00C2! ADDRESS OF LAST USED WORD IN MAP a ees THE ENTRY POINT TABLE END IS INDICATED BY A X*0000 et 
ert 38 TURESUL FOU  PTD+x"O0C8" ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR + 
D018 FC go HAPNAME EOU  DIDSx*OOFC* ADDRESS OF MAP NAME FIELD IN HEX gan ss VIR DEE. MDT) SOP PRYESOR.: TRE’ TABLE ES :BS' FOLLOWES: = 
001948 100 TUINPT FOU PID+xX'0148' ADDRESS OF $INPT DATA os ree" A) EQUATE FOR START OF MESSAGE BLOCK pip 
00196E amy ee eS ee I aa 297 ** B) NUMBER OF LINES OF MESSAGE + 
0019B8 405 Doce ono cay. Gene eeoloa. NDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE ** 
0019Cu 10a SUBSTAT FOU  PIDextotcas ADDRESS OF MDI STATUS 2 eee Dt Cueaa Gn BOLE ornate ed 
901950 105 BEVADD. EOU PIDsx'01D0" ADDRESS OF DEVICE ADDRESS TABLE 0 Se Pl eeecue a ae Ge ecace nes 
D0 19DA 108 DEVADD1 EQU BID#X'OIDAT ADDRESS OF DEVICE ADDRESS TABLE 1 ee Ey SECOND. DANE 1OF MESORGE op 
001984 107 DEVADD2 EQU PID+X'O1E4* ADDRESS OF DEVICE ADDRESS TABLE 2 nae ; ae 
0019EE 108 DEVADD3 EQU PID+X'O1EEt ADDRESS OF DEVICE ADDRESS TABLE 7 300 AIO IGG GCG ICG ERR SIG OE Gi kak at 
pore ee Beye ate Se ae a De REee OE BEV ICE TRboeee qReLe 305 SIC GG GIGI IGG IGG GR kak a ile aka at 
OO1A0C 111 DEVADD6 EQU PID+X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A 16 112 DEVADD7 EQU  PID+X'0216" ADDRESS OF DEVICE ADDRESS TABLE 7 
113 PRINT OFF 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
308 7 RIGOR OI i a a Ok Kt ek 424U+* 
309 sak Ro kK KO EK IORI KR RR ROK FOR I Kk ok ok 425+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 
310 ** * 426+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR IOCC 
311 ** STEP AND RULE ADDRESS TABLE ** “27+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN 
312 ** ** 4Y28+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 
313 RO IR IORI III IIR ORK OK OK fo ak a 429+* BIT HEX 
QU RH HK HI RK RIO IRI KK 000020 430+MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 
002502 2518 315 DC AL2 (N00001) 000021 431+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 
002504 0001 316 DC XL2*0001! 000022 432+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 
000001 317 EQNOO0O001 ae 0001 000023 433+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 
002506 251C 318 D AL2 (NO00002) 000024 U3Z4U4XE EQU 36 4 8 EXPECTED ERROR RESPONSE 
002508 0002 319 DC XL2*0002! 000025 435+HE EQU 37 5 4 HARD ERROR, 8 RETRIES 
000002 320 EQNO0002 EQU 0002 000026 436+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 
00250A 2520 321 DC AL2 (N00003) 000027 G374+NI EQU 39 7 1 NO INTERRUPT EXPECTED E 
00250C 0003 322 DC XL2'0003! 000028 438+CS EQU 4d 8 8 CYCLE STATUS IN PROGRESS 
000003 323 EQNO0003 EQU 0003 000029 439+CSA EQU 44 9 4 CYCLE STEAL AVAILABLE 
00250E 2532 324 D AL2 (NO0004) 00002A 4YHO+CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 
002510 0004 325 DC XL2*0004' 00002B 4QU1+ISBON EQU 43 11 1 ISB BITS ON (1-7) 
000004 326 EQNOO004 EQU 0004 00002C 44U2+NG EQU 44 12 8 TEST UNIT RESULTS NO GOOD 
002512 2534 327 DC AL2 (NO0005) 00002D 4{43+IOCC EQU 45 13 uf OIO CC ERROR 
002514 0005 328 DC XL2*0005!* 000025 4H4+NOIN EQU 46 14 2 NO INTERRUPT 
000005 329 EQNO0005 EQU 0005 00002F G4Y5+INCC EQU 47 15 1 INTERRUPT CC ERROR 
002516 0000 330 DC AL2 (DUMMY) Y46+* 
331 2 tok I III A KO tO ak to ak tk tok Ku 7+* COMMON BUFFER FOR PRINTING DATA 
332 OR IORI IO IGOK OI OR IO io oR a iota ok 4YU8+* 
333 ** x 00258E 0000 450+$TUID DC A (*¥-* TEST UNIT IDENTIFICATION 
334 ** RULE INFORMATION TABLE * 002590 0000 451+$IOIN DC A (*-* I/O AND INTR CONDITION CODES 
335 ** ** 002592 0000 452+$ISB_ DC A (*-* R INTP STATUS BYTE & DEV ADRS 
336 [OO oO oc log om iO RIO a OK aK kak kt ko lok ak akc af akc ae a ak 002594 0000 ‘ 453+LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES 
337 ORR ROO III OR OI IIR IOI IO ERK tok kak pyaeos er Foes pees We nad DEVICE DEPENDENT DATA 
338 NOQO01 S Ta 00015) , YES=N0000 T= (C00 id = 
002518 0100 3394800001 be A aduEs ici re ea 00259A 0000 G56+DEV3 DC A (*-* * 
00251A 2520 340+ ALD NOO 03 00259C 0000 YS7T+DEV4Y DC A (*-* CS STATUS ERROR ISB & INTR CC 
341 NOO0002 35709 FT= (F00017 002596 458+SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN 
00251C 0102 342+N00002 A (a zor 00259E 459+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 
00251E 2540 343+ DE A (F00017) 00259E 0000 460+DCB1 D A (*-* LAST DCB TABLE, CONTROL WORD 
344 NO0003 $STUXX T7A97, 02,0000, EQ, QOT= (Q00158) , YES=N00005,CT=(C00019), Xx 0025A0 0000 461+#DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
002520 0500 345+N00003 DC A (STURN A 0025A2 0000 462+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
002522 2534 346+ DC ave tn OOuee 0025A4 0000 463+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
002524 2B20 347+ DC A (T7A97) 0025A6 0000 464+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
002526 0000 348+ DC AL2 EQ 0025A8 0000 465+DCB6 DC A (*-~* LAST DCB TABLE, CHAIN ADRS 
002528 0002 349+ DC AL3 {0 QOO25AA 0000 466+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 
00252A 0000 205 DC X*'Q0005 0025AC 0000 Woua pore DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 
1+ ALIGN WORD 
00252c 0000 352+ Cc AL2 (0) OO25AE 4694+CSBUF EQU * CYCLE STEAL DATA BUFFER 
00252E C1C1 353+ C C'aARt Q0O025AE 0000 4Y704+#CSTL1 DC A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 
350+ ALIGN WORD 0025B0 0000 471+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 
002530 196E 355+ C aes oar eAR A) 0025B2 0000 4724+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 
356 nNooooY $NVLD FT= ( 00160) ,ST= (S00163) 002584 0000 473+CSTLY DC A (*~ * CS STATUS WD 3, RETRY CNT WD 2 
002532 0600 357+N00004 C ase La 0025B6 0000 4744CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 
358 noO0005 $STOP F op 69) 0025B8 0000 4Y75¢+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 
002534 0102 359+N00005 DC A (a TOP} Q0025BA 0000 4Y76+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 
002536 2578 360+ DC A (F00 16 ) 0025BC 0000 477+CSTL8 DC A (*- * CS STATUS WD 7, PREVIOUS HD/CYL 
002538 0000 361 BC AL2 (DUMM ) 0025BE 0000 4“78+CSTLO DC A (*-* CS STATUS WD 8, CURRENT Se 
00253A 362 ENTPT 0025C0 0000 479+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTO 
363 pneeuecKee Ugh ces 5a 5e eee as esas a aan eee 0025c2 0000 4804CST11 DC A (*-—* CS STATUS WD 16, HEAD/CYLINDER 
364 = OI OI IORI IC I IO IO IO OR OOK IK i $k ok 0025C4 0000 481+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 2 
365 ** * 0025C6 0000 482+CST13 DC A (*-* CS STATUS WD 12, AND 3 + WRAP BYTE 
366 ** ENTRY POINT TABLE ** 483+* 
367 ** ** 0025C8 0000 484+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
368 3 ORO III OO IG IO IO IG I I IG RI I aK toca 0025CA 00000000 485+$DATA DC 2A (*-* OPTIONAL DATA 
369 ORC aOR OOO CGO OR OOK OOK dali gi od a Fo ek Ok 0025CE 0021 486+SINTL DC X*O02T! INTERRUPT LEVEL REQUESTED 
370 ENTPT EP=A,STEP=00001 0025D0 0000 4Y87+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI 
00253A C140 371+ DC CL2¢th 0025D2 00 488+$DVID DC X"00! DEVICE ID 
00253C 2518 372+ DC A (NO0001 0025D4 19D0 4Y89+SVCAL DC Dicey ADRS OF DEVICE ADDRESS 
00253E 0000 373 AL2 (DUMM 0025D6 0000 490+ DC A (¥*-*) IBIS CYLINDER ADDRESS 
374 OR KR OR IIR III II Io a I fo 6k 491+* 
375 FOI IOI IO IOR III IR a fo dk i ic ok ok 492+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
376 ** * 493+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
a4 a MESSAGE TABLE = HOE Te STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
379 2 II IG IG IO IO IO II a ak ak ok 0025D8 4020 258E 7A02 Y96+T7A02 MVWI X'"'7A02',STUID SET UP TEST UNIT ID 
380 3 OI OOOO IOI IG a OR IG ik 0025DE 5700 U97+ Sank RETURN TO MDI SUPVR 
002540 381 FO0017 E U * 499 COPY OMEQU 
002540 0001 382 AL2 (0001) 500 ae OR III I IORI io doi tk fk 
002542 000C 383 A (001 ) 501 * * 
002544 C5D5C440D6CE640E3C 384 CLOO12"*END OF TEST ! 502 * EQUATED NAMES FOR SUPPORTED SVC'S * 
002550 385 F00160 2 U * 503 * * 
002550 0001 386 AL2 (0001) S04 oO KO RO ORI OR IK go io ok i loki $k 4 kak ak 
002552 0024 387 Ate 36) 000000 505 out EQU 0 OUT SVC 
002554 D5D640D3C5C740C9D 388 CLO036"NO LEG INVALID PROCEED TO NEXT STEP '* 000001 506 OUTIN EQU 1 OUTIN SVC 
002578 389 F00169 te * 000002 507 IDLE EQU 2 IDLE SVC 
002578 0001 390 D re ete 000003 508 IDLES EQU 3 IDLE SVC - INDEPENDENT OF CPU IYPE 
00257A 000C 391 A (0 12) 000004 509 CHNGE EQU u CHANGE LEVEL SVC 
00257C C5SD5C440DECE40E3C 392 DC CLOO12"END OF TEST * 000005 510 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
393 PDIT 00 000006 511 EXIT EQU 6 EXIT SVC 
002588 0000 395+OPTN1 DC X*'0000! PROGRAM OPTION CONTROL WORD 1 000007 512 TERM EQU 7 TERMINATE SVC 
396+* 000008 513 RESET EQU 8 RESET DEVICE SVC 
00258A 0000 397+OPTN2 DC X*0000° PROGRAM OPTION CONTROL WORD 2 000009 514 RID EQU 9 READ ID SVC 
398+* BIT HEX QOOOOA 515 START EQU 10 START CYCLE STEAL SVC 
000010 399+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 000008 516 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000011 4Q00+B49 EQU 17 1 4 * 00000C 517 PREP: EQU 12 PREPARE DEVICE SVC 
000012 401+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 00000D 518 READO EQU 13 READ WITH PUNCTTON BIT 3 OFF SVC 
000013 402+B51 EQU 19 3 4 * SECOND OPTION WD AND ARE TO QOO00E 519 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
000014 403+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER OOOOOF 520 RSTAT EQU 15 READ STATUS SVC 
000015 4O4+B53 EQU 21 5 4 * 000010 521 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000016 4Q05+B54 EQU 22 6 2 * 000011 522 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000017 406+B55  EQU 23 7 1 * 000012 523 CTRL EQU 18 CONTROL SVC 
000018 407+B56 EQU 24 8 8 * 000013 524 RIC EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000019 408+B57 EQU 25 | _9 4 * 000014 525 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
QOOOOTA 409+B58 EQU 26 10 2 3 000015 526 HIO EQU 21 HALT ALL I/0 
00001B 410+B59 EQU 27 11 1 * 000016 527 REQSD EQU 22 Reyures USE OF DCP DISK SVC 
00001C 411+B60 EQU 28 12 8 * 000017 528 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
00001D 412+B61 EQU 29 13 4 * 000018 529 HALT EQU 24 HALT SVC 
OO001E 413+B62 EQU 30 14 2 * 000019 530 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
OO0001F 414+B63 EQU 31 15 1 * OOOOTA 531 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
Q0001TE 415+CH ati 30 14 2 CHARACTER SUPPLIED 00001B 532 ATOH EQU 27 ASCII TO HEX SVC TRING 
OOO001F 416+CMP EQU 31 15 1 COMPARE OPERATION 00001C 533 HTOA EQU 28 HEX TO ASCII SVC (STRING 
00258C 0000 418+OPTN3 DC X'0000' PROGRAM OPTION CONTROL WORD 3 00001D 534 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
419+* OQOO00TE 535 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
420+* Q MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS CS O0001F 936 READI EQU 31 READ DATA SETS FOR MDI/UTIL 
421+* 1 ERROR INTERRUP ER 9 CS AVAILABLE CS 000020 537 WRITI EOU 32 WRITE DATA SETS FOR UTIL 
G22+* 2 EXPECTED INTERRUPT XT 10 CS STATUS INTERRUPT ERR CE 539 EM MH KR RE RK RK KK KE EE EE KEKE EERE KE EEK E EEE KEKE EEE EK 
423+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) BON 540 * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
541 * EQUATES USED BY TU'S AS CONSTANTS * 659 * 
542 * 2 a 002630 2000 660 CSDCB DC X* 20008 CONTROL WORD 
NRE SSCSSS&OCS SC SOSCSS SSCS SCS SSCS SSCS LCCC SSCS SS SSS CC SESS SSS CCST SCS CSL ST Se se 002632 0000 661 DC FEOt NOT USED 
OOOOUE 544 PLUS EQU Ct+t PLUS CHAR 002634 0000 662 DC F'Q! NOT USED 
000060 545 MINUS EQU- C!t-'? MINUS CHAR 002636 9000 663 DC F‘o! NOT USED 
000000 S547 ZERO EQU 0 002638 0000 664 DC Fto? NOT USED 
000001 548 ONE EQU 1 00263A 0000 665 DC Ftotr NOT USED 
000002 549 TWO EQU 2 00263C OO1A 666 DC X'OO1A! 13 WORDS OF STATUS 
pore. a THREE zou 2 00263E 25AE eee - DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
000005 552 FIVE EQU 5 669 ***** WRITE DCB *#*e *AK KKK 
90008 ees ee g 002640 0021 e574 a B "0021! 
se ae SEVEN at Z erate a008 e54 WRDC He eran payee CRtFY CNTL WORD- AUTO SEEK 
000009 556 NINE EQU 9 002644 0000 673 DC X*0000! HD/CYL 
OOOOO0A 557 TEN EQU 10 002646 0000 674 DC X*O0O00' 
00000B 558 ELEVN FOU 11 11 002648 26B2 675 DC A (RSBA) RSB ADDRESS 
00000C 559 TWELV EQU 12 12 00264A 0000 676 DC A op | CHAIN ADDRESS 
00000D 560 THRTN EQU 13 13 00264C 0100 677 DC X*0100! BYTE COUNT 
OOOO00F 561 FIVTN EQU 15 15 00264E 0000 678 DC A (*-*) WRITE DATA ADDRESS 
000010 562 SIXTN EQU 16 16 679 * 
000020 563 THRY2 EQU 32 32 680 ***** VERTFY DCB AE He eK IK ok 
000040 564 SIXT4 EQU 64 64 681 * 
000080 565 ONE28 EQU 128 128 002650 0011 682 VRDCB DC X'00171' CONTROL WORD 
000100 566 TWOS6 EQU 256 256 002652 0000 683 DC F'Q! FG/SEC 
000400 567 ONEK EQU 1024 1024 002654 0000 684 DC X'0000! HD/CYL 
000800 568 TWOK EQU 2048 2048 002656 0000 685 DC X*00008 
000c00 569 THREK EQU 3072 3072 002658 2682 686 DC A (RSBA) RSB ADDRESS 
001000 570 FOURK EQU 4096 4096 00265A 0000 687 DC A (*-*) CHAIN ADDRESS 
FFFFFF 572 M1 EQU -1 -1 00265C 0000 688 DC Fro! BYTE COUNT 
PREFER 23 BZ zou =2 =2 00265E 0000 ec 2 DC A (*-*) VERIFY DATA ADDRESS 
FFFFFC 575 M4 EQU -4 - 691 ***** READ DCB 1 fe ke 2c oc kek 
577 2 CE IOI OR ICI OO GK a ok ge ikakak ako ae aca ak 692 * 
578 * * 002660 2010 693 RDDCB DC X'2010! READ DCB CONTROL WORD — AUTO SEEK 
579 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 002662 0000 694 DC FtOY FG/SEC 
580 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 002664 0000 695 DC X'Q000! HD/CYL 
581 * * 002666 0000 696 DC X*'0000! 
582 3s ROR IOI IO ICC RO IO II I ICICI a IK kaikki ak aki ak ak ak kak ak a ak kc ak 002668 26B2 697 DC A (RSBA) RSB ADDRESS 
000000 583 BSO EQU 0 00266A 0000 698 DC A fees CHAIN ADDRESS 
000001 S584 BS1 EQU 1 00266C 0100 699 DC x*0100! BYTE COUNT 
000002 585 BS2 EOU 2 00266E 0000 700 DC A (*-*) READ DATA ADDRESS 
000003 586 BS3 EQU 3 701 * 
000004 587 BS4& ROU uy 7O2 **** WRITE SECTOR ID SKEWED % 
000005 588 BSS EQU) 5 703 * 
000006 589 BS6 EOU 6 002670 082F 7O4 WKDCB DC X*'O82F' CONTROL WORD - SE ON 
000007 590 BS7 EQU 7 002672 0000 705 DC X*0000! FG/SEC 
000008 591 BS8 EQU 8 002674 0000 706 DC A (*-* HD/CYL 
000009 592 BSS EQU 9 002676 0000 707 DC A (*-* NOT USED 
OOOOOA 593 BS10 EQU 10 002678 26B2 708 DC A ({RSBA) RSB ADDRESS 
OO000B 594 BS11 EQU 11 00267A 0000 709 DC A (*-* CHAIN ADDRESS 
00000C 595 BS12 EQU 12 00267C 0004 710 DC X*O004! BYTE COUNT 
99000D ae Bala zou 13 OO0267E 26AE ee i DC A (WRSID) ADDR OF SECTOR ID DATA 
OOO00F 598 BS15 EQU 15 713 **** READ SECTOR ID SKEWED OK 
600 COPY TV7AEYDCB ISNOVT77 714 * 
e832 3° 353689 9038 Hie Roce Be 048s ag) ee Cente ACID eEEE GOS 
603 2o dak ok dak ack dak cic ai cick doi ac tol loki taiictok ck 11/7 8K tk 002684 0000 717 DC X*O0O00! HBZCTL 
604 * 002686 0000 718 DC Xx*0000! NOT USED 
605 * DCB TABLES AND DC'S 002688 26B2 719 DC A (RSBA) RSB_ADDRESS 
606 * 00268A 0000 720 DC A (*-* CHAIN ADDPESS 
607 FOR R  O ria aia ak ak ak ak ak ak aie kak keke ak ak ake ake ake a ake fc aie ae afc a akc ke ak ic ok ak 00268C 0004 721 DC X*OOO4! BYTE COUNT FOR READ SECTOR 
608 * 00268E 2596 722 Dc A(SCTID SECTOR ID DATA ADDRESS oe tee 
609 ***** DIAGNOSTIC DCB = ***##%K 123 * 
610 * 724 **** READ MULTIPLE SECTOR IDS KKK 
0052E2 6000 Gia Denes De xb ds feet ee 002690 2014 55@ RMDCB DC -x* 20148 
G Cc CONTROL WORD- AUTO SEEK - 
0025E4 0000 613 DC A (*-* BD ZCYL 002692 0000 727 DC Fo? FLAG/SECTOR ‘ ened 
0025F6 0000 614 DC xfoood: NOT USED 002694 0000 728 DC Xx'0000! HEAD/CYLINDER 
0025E8 26B2 615 DC A (RSBA) RSB ADDR. 002696 0000 729 DC X*OO000! SCAN COUNT 
0025EA 0000 616 DC A (*-* CHALNING ADDRESS 002698 26B2 730 DC A (RSBA) RSB_ADDRESS 
0025EC 0100 617 DC X*0100! BYTE COUNT 00269A 0000 731 DC A (*-* CHAIN ADDRESS 
0025FE 0000 618 DC A (*-*) DATA ADDRESS 00269C 0084 732 DC X*OO084't BYTE COUNT 
619 * 00269E 3006 733 DC A (ID00) DATA AREA ADDRESS 
620 ***** RECALIBRATE DCB *# *#% kx I34 * 
621 * 735 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
0025F0 0001 622 CLDCB DC X'ooot18 RECALIBRATE DCB 002640 0000 736 ZEROO DC x'00008 CONSTANT ZERO 
0025F2 00000000000000000 623 pc TA (¥-*) 0026A2 0001 737 ONE DC x'oo01! CONSTANT ONE 
624 * 0026A4 0000 738 RAY DC A (¥*-* WRITE PARAMETER POINTER 
625 ***** WRITE SECTOR ID ** 0026A6 EB6D 739 WDATA DC X ERED WRITE DATA 
902600 982 657 W 19 : O056AA 6000 74% LGSEC Dek" 8000" I 
D WSDCB DC X*O82D* WRITE SECTOR ID CNTL WORD-SE ON GSEC DC x ' LOGICAL SECTOR # 
002602 0000 628 DC xXx'oooo! FG/SEC O0026AC 0000 742 PHYSC DC X*OO000! CONVERTED PHYSICAL SEC # 
002604 =OO000 629 Dc A (*-* HD/SCYL OO026AE 0000 743 WRSID DC X'O000! FLAG,SECTOR (WRT SECTOR ID DATA) 
so3603 3803 eye RNase cee 383883 B8880000000000000 4S soa BE 849999) EESTOGAE TOES 
R A (*-* SI 
00260A 0000 632 DC A (*-* ) CHAIN ADDRESS 7T4H6 * ( se ae eee 
oreo ne oo 633 Be Mi oecia) BYTE COUNT OR eee iy SP PESETE SAR ESEAE ELAS EELES SSW ELESTNEREAES STRESSES ALLELES AERC ERE ESS 
635 * _J49 * CALLING SEQUENCE 
636 ***** READ SECTOR ID DCB *******x 750 * 
637 * 751 * BAL CONVT,R7 
002610 2014 638 RSDCB DC X*2014! READ SECTOR ID - AUTO SEEK-SE ON 152° 
002612 0000 639 DC x'O000! FG/SEC 753 * RETURN 
002614 0000 640 DC X¥'*O000! HD/CYL 754 * 
002616 0000 641 DC X*0000! NOT USED 155 * B (TT304+2) 
002618 26B2 642 DC A(RSBA RSB ADDRESS 156 * 
9026 1A 9000 643 dC X10000' CHAIN ADDRESS | Sa de teeta Ley LUPE S ARES ALASSS ELSES ELSES YE PEELEL EES SAS SEEECESER ES SOLS TLCS SERS EER EES ES 
7 D 
00261E 2596 645 DC A (SCTID) SECTOR ID DATA ADDRESS OO026BE 6FOD 2760 759 CONVT MVW R7,CNVT8+2 SETUP RETURN ADDR 
646 * 0026C2 690D 276A 760 MVW  R1,SAVE1 SAVE CONTAINS OF R1 
Se ro ee een Oo apeR: Gige cen 8] ere Weegee ee ice te ee 
002620 9000 649 SKDCB DC xX*'O0000! SEEK DCB 0026CC C128 26AD 763 MNVB R{ PHYSC+1 PLACE IT INTO PHYSICAL # 
002622 0000 650 DC x*O000! FG/SEC 0026D0 402B 3000 4000 764 TWI X*hooo' /HDCYL CHECK FIXED HEADS 
002624 0000 651 DC For HD/CYL 0026D6 123A 765 JON CNVT6 HEAD NUMBER SAME AS PHYSICAL 
002626 0000 652 DC Fror 0026D8 6908 3000 766 MVW HDCYL,R1 GET THE HEAD 
902628 26B2 653 DC A (RSBA) FSB ADDRESS 0026DC 3121 767 SLL 4,R1 SHIFT OUT EXCESS 
90262A 0000 654 DC A (*-*) CHAIN ADDRESS QOO26DE 3172 768 SRL 14,21 ALIGN THE HEAD 
Q9Q0262C 0000 655 DC Ftgr NOT USED 0026E0 1035 169 JZ cnére LOGICAL =S PHYSICAL 
00262E 0000 656 DC F'o? NOT USED 0026E2 7922 0001 770 SWI 1,R1 CHECK HEADS 1,5,9 
657 * 0026E6 1023 174 IZ chvry GO SET THE SECTOR 
658 ***** CYCLE STEAL STATUS DCB **#% 2% O026E8 7922 0001 7172 SWI 1,R1 CHECK HEADS 2,6, 10 % 
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0026EC 1010 773 JZ CNVT2 GO SET SECTOR 888 * 
OO26EE 802B 26AD 2768 774 CB PHYSC+1,CB40 CHECK SECTOR 32 0027D8 4020 2906 2600 889 $WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0026F4 1032 775 JE CNVTS YES THE SAME LOCATION 0027DE 500A 890 J XIO 
0026F6 802B 26AD 2762 776 CB PHYSC+1,CBO07 SECTOR LESS THAN 7 891 * 
0O026FC 1FO4 777 JLGE CNVT1 LESS THAN OR EQUAL 0027E0 4020 2906 25E0 892 $DIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO26FE 4O2E 26AC 0008 7178 SWI 8,PHYSC OFFSET OF 8 0027E6 OBFF 893 MVBI X*FFt,R3 SETRD BUFFER TO ALL FS 
002704 5023 779 J ChvT6 GO SAVE 0027E8 6D08 25EE 894 MVW DgDcBe Ty R5 SET UP READ BUFFER ADRS 
002706 4029 26AC 0018 780 CNVT1 AWL 24,PHYSC OFFSET OF 24 0OO27EC 4724 0100 895 MVWI 10100!,&7 SET UP BUFFER LENGTH 
00270C 501F 781 J cnere 0027FO 2BAC 896 FFN R3 (R5) CLEAR READ BUFFER 
00O270E 802B 26AD 2768 782 CNVT2 CB PHYSC#1,CB40 CHECK SECTOR 32 0027F2 5000 897 J X16 
002714 1022 783 JE CNVT9 YES THE SAME LOCATION 898 * 
002716 802B 26AD 2764 784 CB BuYSCt ss CB15 SECTOR LESS THAN 15 900 COPY TTVAXEQ O9MART78 
O83116 4098 rec oo1o = 482 Su SRBE Te ee 
002724 e075 AC 787 ane 16 ,PHYSC OFFSET OF 16 LE 66 + K*KKKKKK EK KE Me He a a eK he eK KKK KK KKK KKK KEKE KEKE EK EEEKKEDO JUL] 6K 
002726 4029 26AC 0010 788 CNVT3 AWI 16,PHYSC OFFSET OF 16 1467+* 
00272c 5O0O0F 789 J CNVT6 1468+* SUB-ROUTINE 
00272E 802B 26AD 2768 790 CNVT4 CB PHYSC+1, CB4O CHECK SECTOR 32 1469+* 
002734 1012 791 JE NVT9 YES THE SAME LOCATION 1470+4+* EXECUTE INPUT AND OUTPUT COMMANDS 
002736 802B 26AD 2766 792 CB PHYSC+1, CB23 SECTOR LESS THAN 23 1471+ 
00273Cc 1F04 793 JLGE CNVT5 1472+* PURPOSE 
00273E 402E 26AC 0018 794 SWI 24,PHYSC OFFSET OF 24 1473+* 
002744 5003 795 J CNYTE SAVE IT 1474+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
002746 4029 26AC 0008 796 CNVT5 AWI 8,PHYSC OFFSET OF 8 1475+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
00274C 402B 26AA 0800 797 CNVT6 TWI X¥'0800', LGSEC CHECK DISPLACED FLAG 1476+* 
002752 1003 798 JOFF CNVT9 NO EXIT 1477+* 1. SAVE THE | ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
002754 4029 26AC 0001 799 AWL 1,PHYSC ADD ONE FOR DISPLACED 1478+* THE I/O COMMAND. 
00275A 6908 276A 800 CNVTS MVW SAVE1,R1 RESTORE R1 1479+* 2. SAVES THE one BLOCK USED UNLESS IT IS A START CYCLE STATUS 
00275EB 6802 0000 801 CNVT8 B *— RETURN 1480+* ISSUED BY THIS SUBROUTINE. 
802 * 1481+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
002762 0700 803 CBO7 DC Xx'O07008 SECTOR 7 MASK 1482+ START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
002764 OFO0O 804 CB15 DC X*OFOO! SECTOR 15 MASK 1483+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
002766 1700 805 CB23 Dc X¥*1700! SECTOR 23 MASK 14844 SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
002768 2000 806 CB4O DC X*20008 SECTOR 32 MASK 1485+* MYSTERY INTERRUPT st) CONTROL BIT IS SET. 
00276A 0000 807 SAVE1 DC X*0000! SAVE CONTAINS OF R1 1486+* 5. MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK IN R7 SET THE 
808 * 1487+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE "Sv TART?*. 
810 * 1488+ 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE 1/0 COMMAND. TIMING 
811 * EXECUTE INPUT & OUTPUT COMMANDS 1489+* STARTS TO DETERMINE A LOST INTERROPT. 
812 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1490+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
813 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 1491+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL 
814 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 1492+ 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
815 * SUPVR CALL. 149 34+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
816 * : 1494+%* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
817 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 1495+ 11. CHECK TO SEE IF THE EXERCISER IS TO BE& TERMINATED. 
818 * 2 1496+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
819 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 1497+* ISSUED BY THIS SUBROUTINE. 
820 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 1498+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
821 * 1499+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
B22 . THIS ROUTINE HAS THE FOLLOWING ENTRIES: 130048 COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
‘* + 
824 ‘ 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 1202+% CALLING SEQUENCE 
826 bd 2 BAL SWKEW, R6 WRITE SECTOR ID SKEWED youre THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
° + 
828 * 3 BAL SWSEC, R6 WRITE SECTOR ID 1506+* --> BAL xIo OR XEQ ANY CYCLE STEAL COMMAND MOD=0 
829 * S 1507+* --> BAL XIo1 MON PARM PRELOADED IN 'romMop: 
830 * 4 BAL SDIAG, RE DIAGNOSTIC 1508+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STARS OD=F 
831 * a 1509+* --> BAL XIOCS-4,R6 AUTO CS STATUS (FOLLOWING OThER. XIO 
832 : 5 BAL XIOCS, R6 CYCLE STEAL STATUS ae é AND DOES NOT POST INTERRUPT STATUS) 
o + 
834 . 6 BAL SSEEK, R6 SEEK 1a1g+s RETURN CONTROL 
836 * 7 BAL $SRECL, R6 RECALIBRATE 15144+* BXS R6, 2) RETURN TO USER NO ERROR 
837 * . 1515+* OR B R6{ * RETURN AND RETRY ON ERROR 
838 * 8 BAL SRDID,R6 READ SECTOR ID 15 16 4 HK ER OE OR RIO ORI OR ok tO CK 
839 * e 00O27F4 CB25 2908 1518+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
B40 -2 BAL $RD, R6 READ 0027F8 SOOR 1a 13 J XIO1 CS I/O'S ARE NOT RETRIED 
: : 
842 * 10 BAL SRDVY,R6 READ VERIFY OO27FA 4020 2908 O000D 1521+#XIODG MVWI x*000D',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
843 * a 002800 500A 1522+ J XIo1 GO TO CS OPS 
844 * 11° BAL SWRT, RO WRITE 1523+* 
B45 * 002802 4CAA 1524+ TBTR Re, cE RESET CS STATUS INTER ERROR INDICAT. 
846 * 12 BAL SRDIM, R6 READ MULTI SECTOR IDS 002804 4C68 1525+ TBTS SET 'CYCLE STEAL STATUS* IN PROGRESS 
847 * 002806 4020 2906 2630 1526+XIOCS MVA CoDEB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
848 * 13. BAL SWRTO, R6 WRITE DPC COMMANDS 00280C 4020 2908 OOOF 1527+ MVWI 'O00F', IOMOD SET CYCLE STEAL MODIFIER 
849 * 002812 4c28 1528+ TBT (na CS) IS CS IN PROGRESS, ERROR CONDITION 
00276C 4020 2906 2620 850 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 002814 1213 1529+ JON To? * YES, BYPASS SAVING I/O ADRS 
002772 5040 851 J XIO 002816 6EOD 2594 1530+XIO1 MVW R6, LSTIO SAVE {AR FOR RETRY IF REQUESTED 
852 * 00281A 4324 2598 1531+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
002774 4020 2906 25F0 853 $RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 00281E 6D08 2906 1532+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
00277A 503C 854 J XIo 002822 OFIA 1533+ MVBI 26,R7 * THE NUMBER OF MOVES 
855 * 002824 2D64 1534+ MVFN SRB) $83) MOVE 1 STATUS WORD AND ADJUST 
00277C 4020 2906 2610 856 $RDID MVA RSDCB, ILODCB SET UP BLOCK FOR SVC CALL 002826 OBFF 1535+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 
002782 OBFF 857 MVBI X'FFI'SR3 SET BUFFER TO F'S 002828 4524 25AE 1536+ MVA CSBOF, RS * TO ALL ONES ¥* 
002784 4524 2596 858 MVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADRS 00282C OFIA 1537+ MVBI 6, * 
002788 4724 0004 859 MVWI R7 SETUP BUFFER LENGTH 00282E 2BAC 1538+ FFN R3 5 RS) * 
00278C 2BAC 860 FFN re (R5) INIT READ SECTOR ID BUFFER 002830 4020 2590 0708 1539+ MVWr x*6708°,$IOIN OVERLAY OLD CONDITION CODES 
00278E 5032 861 ; J 6 002836 CB25 2592 ee MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
+ 
002790 4020 2906 2690 863 $RDIM MVA RMDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 00283A 4CA1 1542+ TBTR R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 
002796 4724 0084 864 MVWI 132,R7 SET BUFFER LENGTH 00283C 4cA3 1543+XIO2 TBTR RG IN CLEAR INTERRUPT RECEIVED CNTL BIT 
00279A 4524 3006 865 MVA 1D06 RS SET BUFFER ADDRESS 00283E 4724 2902 1544+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
00279E OBFF 866 MVBI X'FF!,R3 SET CLEAR CHARACTERS 002842 4CAG 1545+ TBTR R4,$LE) RESET LEVEL ERROR INDICATOR 
0027A0 2BAC 867 FFN R3 (r5) CLEAR THE BUFFER 002844 4C62 1546+ TBTS R4,XI) SET EXPECTED INTR CONTROL BIT 
0027A2 5028 868 F J X10 002846 600A Jot SVC TART CALL SUPVR FOR I/O COMMAND 
+ 
OO27A4 OBFF 870 $RD MVBI X'FFt,R3 SETRD BUFFER TO ALL F'S 002848 4CAT7 1549+ TBTR R4, NI) IS AN INTR EXPECTED 
0027A6 6D08 266E 871 MVW RDDCB+14, R5 SET UP READ BUFFER ADRS 00284A 6ACO 0002 1550+ BN R6, 2) * NO, RETURN TO USER 
OO27AA 4724 0100 872 MVWI x, 0190", k SET UP BUFFER LENGTH 1551+ 
OO27AE 2BAC 873 FFN Ak 5) CLEAR READ BUFFER 1552+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
0027B0 4020 2906 2660 874 SRDS MVA EDS B, LODCB SET UP BLOCK FOR SVC CALL 1553+ 
0027B6 5O1E 875 J OO0O284E 4524 0000 1554+ MVWI SET UP WORK REG FOR 'LOST INTR! 
876 * 002852 4CA3 1555+XI08 TBTR (fi a2) HAS INTERRUPT BEEN RECEIVED 
0027B8 4020 2906 2650 877 SRDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 002854 1239 1556+ JON * YES, CHECK IF ALL WAS SATISFACTORY 
0027BE SO1A 878 J XIO 002856 6002 1557+ SVC ALOE ALLOW ANOTHER PROGRAM A CHANCE TO RON 
879 * 1558+ SUPVR WILL RETURN HERE 
0027C0 4020 2906 2640 880 $WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 002858 6002 1559+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
0027C6 5016 881 J XIO 1560+* SUPVR WILL RETURN HER 
882 * 00285A 7DA1 0001 1561+ AWI 1,R5 ADVANCE TIME OUT count 
0027C8 4020 2906 2680 883 SRKEW MVA RKDCB,1ODCB SET UP CONTROL BLOCK FOR SVC CALL 00285E 18F9 1562+ JNZ xftos8 BCH IF TIME OUT NOT REACHED 
0OO0O27CE 5012 884 J XIO 002860 4c61 1563+ TBTS R4, ER) SET ON ERROR CONTROL BIT 
885 * 002862 68D2 0000 1564+ B 6) * "NO INTERRUPT® 
0027D0 4020 2906 2670 886 $WKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1566 431 OK ROO Ro oR io ok i 3 FEB] 6% * 
0027D6 5SOOE 887 J XIO 1567+* 
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1568+* SUBROUTINE OO28AE 0501 1684+ ABI 1,R5 * IN 'I* BIT IL 
1569+* 0028B0 CD24 25CE 1685+ CW SINTL, RS IS THIS THE CORRECT INTR LEVEL TL 
1570+* I/O EXECUTE ERROR HANDLING ROUTINE 0028B4 1002 1686+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
15714+%* 0028B6 4cC66 1687+ TBTS R4Y,$LE) SET IffR LEVEL ERROR CONTROL BIT IL 
1572+%* PURPOSE 0028B8 4C61 1688+ TBTS RG,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
1573+ OO28BA 4CA2 1689+INTR3 TBTR R4,X1T WAS INTERRUPT EXPECTED IL 
1574+% THIS ROUTINE WILL COLLFCT INFORMATION TO HELP DETERMINE THE 0028BC 1204 1690+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 
1575+% PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE O028BE 4C60 1691+ TBTS ane MT) * NO, SET MYSTERY INTR CONTROL BIT IL 
1576+% SUPERVISOR AND IT WAS NOT ACCEPTED. 0028CO F304 1692+ CBI R43 ATTENTION INTERRUPT? IL 
1577+% 0028C2 1001 1693+ JE TNTRX YES IL 
1578+* CALLING SEQUENCE 0028C4 4Cé6C 1694+ TBTS (Ra NG) ERROR, UNEXPECTED INTERRUP® IL 
1579+ 0028C6 6006 1695+INTRX SVC XI EXIT THIS LEVEL VIA SUPVR TO PGH IL 
1580+ SUPVR HILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND De re oe tag eee eae eigen ee ry Ce Rane wee ee Cy ae te 
15814+* ; 
1582+* RETURN CONTROL 1699+ THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
15834% 1700+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
ion B (R6) * RETURN TO USERS ERROR HANDLER ee RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ 
15 86 4 3 I I RIGO OO RR KC ok loka kc tok ak ak tok tokio ak akate ake 2c 1703+* 
1587+* 0028C8 4CAY 1704+XIOCK TBTR P4,XE) WAS AN ERROR EXPECTED 
1588+* CC O= DEVICE NOT ATTACHED OO28CA 6ACO 0002 1705+ BN Bere). * YES, EXIT THIS ROUTINE 
1589+* FOR 1= DEVICE BUSY 0028CE 4CA8 1706+ TBTR R4,CS) WAS AUTO CS IN PROGRESS 
1590+* 1/0 2= DEVICE BUSY AFTER RESET 0028D0 1006 1707+ JOFF TOCV * NO, CONTINUE CHECKING 
1591+* 3= COMMAND REJECT 0028D2 4C2A 1708+ TBT ag bs CE) ts c§& IN AN ERR CONDITION 
1592+* Y= INTERVENTION REQUIRED 0028D4 1002 1709+ JOFF Toco * NO, BCH 
15934% 5S= INTERFACE DATA CHECK 0028D6 68D2 0000 1710+ B R6) * cs FRROR 
1594+* 6= CONTROLLER BUSY OO28DA 4C69 1711+#XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
1595+ 7= I/O COMMAND EXCEPTED 0028DC 5601 1712+ BXS R6,2 GO TO USER 
1596+%* OO28DE 4C21 1713+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 

002866 706E 1597+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 0028E0 100D 1714+ JOFF xXIo0cx * NO, EXIT THIS ROUTINE 

002868 336A 1598+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 1715+* 

00286A C328 2590 1599+ MVB R3,f10IN x PUT IN LOG OUT AREA O0028E2 C520 2591 1716+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 

00286E 68D2 0000 1600+ B (RG) * RETURN TO USER ERROR HANDLER O0O28E6 F502 1717+ CBI 2,R5 IS THIS CC=2 
1602 +67 a tok I OG gio dodok dodo otc dok tok dk dk & 1 ADR 76% * 0028E8 1003 1718+ JE xfoco YES 
1603+% + OO28EA F506 17194 CBI 6,R5 IS THIS CC=6 
1604+* SUB-ROUTINE IL 0028FC 68D1 0000 1720+ BNE (Be) * * NO, BCH TO ERROR HANDLER 
1605+* IL 0028FO C520 2592 1721+XIOCQ MVB ISB,R5 GET fAST ISB DATA BYTE AND IF CS 
1606+* ERROR INTEPRUPT RUNS ON INTERRUPT LEVEL '$INTL!* TL 0028F4 6A00 2802 1722+ BN XrToc§-4 * AVAILABLE, GO AND GET IT 
1607+* IL 0028F8 68D2 0000 1723+ B fkS)% ERROR 
1608+* PURPOSE IL 0028FC CB25 258C 17244+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
1609+%* IL 002900 5601 1725+ BXS (R6, 2) RETURN TO USER VIA REG 6 
1610+% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 1726+* 
1611+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE £1 1727+* I/0 PARAMETER LIST 
1612+* EXPECTED CODE. IL 1728+* 
1613+* IL 002902 19D0 1729+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
16144+* CALLING SEQUENCE TL 002904 2866 1730+ DC A (XIOER) ERROR ROUTINE ADRS 
1615+% IL 002906 0000 1731+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
1616+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 INTERRUPT IL 002908 0000 1732+IOMOD DC A (¥-* MODIFIER 
1617+* IL 00290A 0000 1733+ DC A (*-* ADRS OF LAST SVC CALL 
1618+ RETURN CONTROL IL 00290C 0000 V730+TORSP DC A (*-* SECOND WORD OF LAST IDCB 

+ TL 
Ve20 #8 SVC EXIT RETURN TO USER VIA SUPVR sae EL ae INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 

+ I 
Deo Eee vee u ba so ee ee OO290E 19D0 1738+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
1623+* IL 002910 2896 1739+ DC A (INTOK INTERRUPT OK RETURN ADRS 
1624+* CC O= CONTROLLER END ISB O= ADD STATUS IL 002912 2872 1740+ DC A(INTER) , INTERRUPT ERROR ADRS 
1625+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 002914 0003 17414#INTCC DC X*0003! INTERRUPT CODE EXPECTED 
1626+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL VT U3 4 4K RK RRR  aiok i lok koi ak ak ak ak ake ke i oak ok teak tok 1M AY 7 6% * 
1627+* 3= DFVICE END INTERRUPT INTR 3= DCR SPEC CK IL 1744+% 
1628+* 4= ATTENTION INTFPRUPT 4= STG DATA CK IL 1745+* SUBROUTINE 
1629+% 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 1746+ * 
1630+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK TL 1747+% CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
1631+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 17484+% 
1632+* IL 1749+* PURPOSE 

002872 T706E 1633+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 1750+* 

002874 336A 1634+ SRL 13,R3 POSITION INDICATORS IN R3 IL 1751+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

002876 4424 2588 1635+ MVA OPfN1. RY SET UP BASE ADRS IL 1752+% PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 

00287A 4C28 1636+ TBT (Ra c$) TS CS IN PROGRESS IL 1753+* TO INTERRUPT. 

00287C 1006 1637+ JOFF NTES * NO IL 1754+% 

00287E 4C6A 1638+ TBTS (R4, CB) TURN ON CYCLE STEAL INTER ERROR TG 1755+* CALLING SEQUENCE 

002880 6F0OD 259C 1639+ MVW R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 1756+* 

002884 C328 259D 1640+ MVB R3,DEV4+1 * AND THE COND CODE IL 1757+%* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 

002888 500A 1641+ J INTR1 IL 1758+% 

00288A 4C24 1642+INTES TBT {RA XE) TEST EXPECTED ATTEN / ERROR IND IL 1759+* --> BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 

00288C 1002 1643+ JOFF NTE? BCH IF NOT FXPFCTED IL 1760+* --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 

00288& F304 1644+ CBI 4,R3 IS THIS AN "ATTENTION! INTR TL 1761+* 

002890 1006 1645+ JE ThTRI * YES, BCH TO END INTR SEQUENCE EL 1762+* RETURN CONTROL 

002892 4Cé61 16464INTET TBTS {RA ER) SET ERROR ON I/O COMMAND CNTL BIT IL 1763+%* 

002894 5004 1647+ J NTR1I IL 1764+ BXS (Rese RETURN TO USER VIA REG 6 IF OKAY 
1648+%* THE ERROR INTERRUPT USES THE SAME IL 1765+* OR B R6) * IF THE DEVICE COULD NOT BE CONNECTED 
16494+% ENDING SEQUENCE AS THE NORMAL INTR IL 1766+* 

165 14:3 IO CIO ICO CIC CC GR io ok tok dak goat koko ek TA PRI6IL WAWEE DESL SSS S SS tS SLES SS TESS TSS SSS SETS SS TST ST SS SSS SS SSeS eS SC SCS SS SSeS SSS SL SS ft 
1652+ IL 002916 OFO6 1768+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
1653+* SOUBROUTINE TL 002918 OBOO 1769+ MVBI O,R3 * AND THE DATA TO USE 
; 16544+x IL 00291A 4524 2596 1770+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
1655+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL!* TL 00291E 2BAC 1771+ FFN R3 452 * 
1656+* ime 002920 CB25 258C 1772+ MVWZ OPfN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
1657+* PURPOSE IL 002924 4724 290E 1773+ MVA INTBL,R7 : SET R7 TO CONTROL BLOCK AND 
16584+* IL 002928 6014 1774+ SVC CICB * CONNECT IT TO THIS DEVICE 
1653+% TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 00292A 6ADO 0000 Vader, BN (R6) * ERROR RETURN TO USER 
+ IL 
1661+* CALLING SEQUENCE IL 00292E 8828 25CE 2906 1777+$CONP MVW S$INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
1662+* IL 002934 4724 2902 1778+ MVA IOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
1663+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 002938 4020 2590 0708 1779+ MVHI X¥'0708', SIOIN INITIALIZE CONDITION CODE STORAGE 
1664+%* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 00293E CB25 2592 1780+ MVWZ SISB,R3 * AND CLEAR OLD ISB VALUE 
1665+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 002942 6E0D 2594 1781+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
1666+* COMMON SECTION IS HANDLED HERE. IL 002946 600C 1782+ SVC PREP * AND CALL ON SUPVR 
1667+* IL 002948 5601 1783+ BXS (R6,2) RETURN TO USER 
Mee ot RETURN CONTROL IL 118 Dee EP SAAAA TSE REE NYS CATS STARRAES SD SEE RST ESE ERERE TA TESS SERAEOSEOO ADE TORY 
+x IL id 
1o70% SVC EXIT RETURN TO USER VIA SUPVR TL eee SUBROUTINE 
+ 
LEE RSE Ee eee T TE Te Eee LEE TEE CTT EET EE eT ET ET ee ree Te rer rn rrr ty 1789+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 

002896 706E 1673+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 1790+* 

002898 336A 1674+ SRL 13,R3 POSITION INDICATORS IN R3 IL 1791+* PURPOSE 

00289A 4424 2588 1675+ MVA OPTN1,R4 SET UP BASE ADRS IL 1792+ 

00289E 4c63 16 76+INTR1 TBTS R4,IN SET INTERRUPT RECEIVED IL 1793+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

0028A0 4C28 1677+ TBT R4,CS IS 'CS IN PROGRESS! ON IL 1794+* SET THE ‘NC GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 

O0O28A2 1204 1678+ JON NTR2 * YFS, BCH AROUND UPDATE IL 1795+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 

0O0O28A4 C328 2591 1679+ MVB R3,SLOIN+1 SAVE {£{NTERRUPTING CC CODE IL 1796+* 

0028A8 6FOD 2592 1680+ MVW R7,51SB SAVF INTR STATUS AND DEV ADRS IL 1797+* CALLING SEQUENCE 

0028AC 1681+INTR2 EQU * IL 1798+* 
1682+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 17994%* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 

0028AC 3521 1683+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 1800+* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
18014+#* --> B SERRS SET 'NG' BIT AND CONVERT DATA TO LOG OO2ZB4C 120E 1916 JON SMLF YES -23 
1802+* --—> B $CON X RETURN TO MDI SUPERVISOR TO TEST STS OO2B4UE 402B 25B6 0300 1917 TWI X*0300!,CSTLS BIGM FILE ? 
1803+* 00O2B54 1211 1918 JON BIGM YES -64 
18044* RETURN CONTROL 002256 402B 2586 0200 1919 TWI X*'0200',CSTL5 SMLM FILE ? 
1805+* 002B5C 1213 1920 JON  SMLH YES -29 
tacses 4. BTuRT RETURN 70,44 g038es $938 BEBE coos 1834 PTSF NR BEUDZSRT See ees Hacks 
+* OR B R6) * IF THE DEVICE COULD NOT BE CONNECTE 
1808+* (RO) oer eee 002R68 5002 1924 J ChrEe 
een aoa GRaeweuns Seek lal ch aa ai aati tad a kt daa aia paouce ieee 2F5C aoe ae he TROOP KB) SHALL FILE WITH FIXED Sean 
A +$ERR$ MVWI X*8000',TUSTATUS SET ON "NO GOOD" STATUS BI ADS 
002950 4724 2B1A 1811+ HVA HEBLK,R7 GET ADRS OF CONTROL BLOCK ‘ 002B70 4029 2FFC 0004 1926 AWI { HRADS. SET NUMBER OF TRACKS 
002954 601A 1812+ SVC HTOE CONVERT HEX TO EBC VIS DCP O02P76 500C 1927 J TSF3A JUMP TO START 
002956 4020 188E 4040 1813+ MVWI X'4O40', TUWORK+116 OO2B78 4724 2F8C 1928 BIGM MVA HEDD6,R7 PARM ADDRESS -64 
00295C 4020 1890 4040 18144 MVWI X'4O40O!', TUWORK+118 00O2B7C 4029 2FFC 0006 1929 AWI 6,HEADS SET NUMBER OF TRACKS 
002962 4020 1892 4040 18154 MVWI X'4O40' /TUWORK+ 120 002B82 5002 1930 J ShLMM 
002968 OpDpOodu 1816+$PRNT MVBI 4G-RS O0OO02B84 4724 2FBE 1931 SMLM MVA HEDD8,R7 PARM ADDRESS -29 
00296A 4324 181A 1817+ MVA TUWORK R3 SET UP BUFFER STORAGE 002B88 4C98 1932 SMLMM TBTR ps FXD) SMALL FILE NO FIXED HEADS 
00296E 6BOD 2B12 1818+ MVW R3,BUFPT OO2B8A 4029 2FFC 0004 1933 AWI HEADS SET NUMBER OF TRACKS 
002972 &124 29ERF 1819+ MVA  LIftt,R1 002B90 4020 2EBA 308C 1934 TSF3A MVA  ERSEC, BLKt2 ADDRESS OF 'BLK! PARAMETER LIST 
002976 OFOY 1820+ MVBI 4,R7 0OO02F96 4324 308C 1935 MVA Bree C,R3 SET UP FOR ce CONSOLE 
002978 OE08 1821+ MVBI 8,R6 002B9A 6000 1936 SVC PRINT HEADIN 
OO297A 2B24 1822+MVBUF MVFN (83). (R1) 002B9C 4724 2ECO 1937 MVA READ, R7 PARM ADDRESS 
00297C OFOY 1823+ MVBI R 002BA0 6000 1938 SVC PRINT HEADING 
00297E OA4O 18204 MVBI xfuos R2 OO2BA2 4020 2FFE 0000 1939 MVWI OFGSEC INIT FGSEC 
002980 C258 18954 MVB. OR ceiys OO2BA8 4C18 1940 TBT ae FXD) TEST FIXED 
002982 BEFB 1826+ Jct MVBUF,R6 QOO2BAA 1204 1941 JON YES 
002984 O08 1827+ MVBI 8,R6 O02BAC 4020 3000 0000 1942 MV WI x*0000", HDCYL SET HEAD 0 CYL 0 
002986 7921 002Cc 1828+ AWI 44,R1 OO2BR2 5003 1943 J TSF3C 
00298A BDF7 1829+ JCT  MVBUF,R 002BB4 4020 3000 0400 ‘1944 TSF3B MVWI X' 0400? , HDCYL SET HEAD 1 CYL 0 
00298C 4020 1802 FIFO 1830+ MVWI PIDMSG AG PID+2 OO2BBA 4020 2652 0000 1945 TSF3C MVWI O +2 SET FLAG & SECTOR 
002992 4020 19B8 2B18 1B31+ MVA FAKETU.aDCADD1 002BCO 8828 3000 2654 1946 MVW HDCT LS VRDCB+4 SET THE HEAD AND CYLINDER 
002998 4020 19BA 2B14 1832+ MVA DC2PT. SDCADD2 O0O2BC6 4020 265C 4000 1947 MVWI X*'400 yaneet 22 FULL TRACK BYTE COUNT 
00299E 402c 19C4 0080 1833+ OWL BITOO80. SUPSTAT 0O2BCC 4020 2FF6 308C 1948 MVA ERSEC, BRLS STARTING ADDRESS OF ERROR LIST 
002944 4324 258E 183u+ MVA STULD/R R3 SET UP BUFFER STORAGE Boon De eet 27B8 1356 TS69C Eee SEDUY BO READ-VERIFY FULL TRACK 
+ BAL TUMSGHTR*,R7 GO TO MESSAGE WRIT 
1836+ : a 002BD8 4Cca1 1951 TBTR (4 ER) ANY ERROR? 
DOseke C720 19D0 Acae Fou DOSBDe 6203 2D30 1933 BAL T3626 é6 TO ERROR ROUTINE 
+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI ’ 
0029B0 6013 1839+ SVC RICB ° RELEASE INTERRUPT CONTROL BLOCK QO2PEO 6E03 2BFO 1954 TS69G BAL CK40, R6 READ AND CHECK SECTOR 40 
0029B2 6812 25D0 1840+ B TURTN* RETURN TO MDI SUPERVISOR OO2BE4 6E03 2C5C 1955 BAL UPDTE, R6 GO UPDATE SUBROUTINE 
18414+% OO2BE8 8828 3000 2654 1956 MVW HDCYL,VRDCBtY UPDATE HD/CYL IN VERIFY DCB 
0029B6 0009 1842+BEGIN DC A (0009 NUMBER OF LINES TO PRINT OO2BEE 50F1 1957 TS69C 
0029B8 0008 1843+ DC A (0008 LINE LENGTH = 8 CHAR 1958 * 
0029BA 5cC5C40C1C2D6D9E3 18444 DC C'** ABORT! 1959 * 
0029C2 0028 1845+ Cc A (0040) LINE LENGTH = 4O CHAR OO2BFO 6EOD 2C5A 1960 CK40 MVW R6,CK40R+42 SET UP RETURN ADDRESS 
0029C4 E3EU4CSCULOCODECID 1846+ DC C'TUID IOIN ISB INST SECT ID DATA CSCC * QOO2BF4 4020 26AA 0040 1961 MVWI x'6040',LGSEC LOG SECT NUM 
0029EC 0028 1847+ DC A (0040) LINE LENGTH = 40 CHAR OO2BFA 4020 26AC 0020 1962 MVWI X'0020',PHYSC PHY ID FOR SCT 4O 
OO29FE 4O4OKOKOK4O4OKO4O4 18484LINE1 DC ct 002C00 4020 2682 0020 1963 MVWI X'0020',RKDCBt2 PHY SCT# IN DCB 
002A16 0028 1849+ Dc A (0040) LINE LENGTH = 40 are 002C06 8828 3000 2684 1964 MVW HDCYL, RKDCB+4 Agee IN DCB 
002A18 C3D5E3D340C4UC3C2F 1850+ DC C*°CNTL DCB1 DCB2 DCB3 DCBY CHAD BYCT ADRS ! 002COC 9028 2682 2612 1965 MVD RKDCBt+2,RSDCBt2 SE 
002A40 0028 1851+ DC A (0040) LINE LENGTH = 40 CHAR 002C12 4020 261F 2596 1966 MVA  SCTID,RSDCB+14 DATA ADDR 
OO2ZAGU2 UOUOKOKO4OSONOKNOY 1852+LINE2 DC cr 002C18 4020 268E 2596 1967 MVA SCTID, RKDCBt14 DATA ADDR 
OO2A6A 0028 1853+ DC A (0040) LINE LENGTH = 40 onan 002C1E 6E03 277C 1968 BAL SRDID READ SECTOR ID 
O0O2A6C C3E260FO4OC3E260F 1854+ DC C'CS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 002C22 294A 1969 C A (SERRS) 
002A94 0028 1855+ DC A (0040) LINE LENGTH = 40 CHAR 002C24 4CA1 1970 TBIR é 4, ER) ANY ERROR? 
002A96 4O404040404040404 1856+LINE3Z DC cr ' 002C26 120D 1971 JON SKEW YES TRY SKEWED 
OO2ABE 0028 1857+ DC A (0040) LINE LENGTH = 4O CHAR 002C28 402B 2596 2F00 1972 TWI X'2F00*,SCTID ASSIGNED AS ALT ,DEFECTIVE? 
002ACO C3E260F840C3E260F 1858+ DC C'CS-8 CS-9 CS-A CS-B CS-C t O02C2ZE 1014 1973 JOFF CK4OR NO 
00O2AE8 0028 1859+ DC A (0040) LINE LENGTH = 4O CHAR 002C30 402B 2596 0800 1974 TWI X*0800',SCTID DISP? 
OO2ZAEA 4O404040404040404 18604+LINES DC Ct t 002C36 1210 1975 JON CK4&OR YES 
1861+4+* 002C38 8828 2C5A 2EB6 1976 MVW CKSOR+2,$LSTZ+2 SET UP RETURN ADDRESS AFTER LIST 
002B12 0000 1862+BUFPT DC A ne O002C3E 6802 2E2C 1977 B $LSTF NO 
002B14 29B6 1863+DC2PT Cc A (BEGIN) 002C42 6E03 27C8 1978 CSKEW BAL SRKEW, R6 READ ID SKEWED 
002B16 0101 18644+FIXTU D X*0101! 002C46 294A 1979 DC A (SERRS) 
002B18 0101 1808s FP DHSG x¥'01018 002C48 8828 2C5A 2EB6 1980 MVW CK4YORt*2,$LSTZ+2 SET UP RETURN ADDRESS AFTER LIST 
OOF1FO 1866+PID G10 2 g X" FIFO! OO2C4E 4CA1 1981 TBTR {Rd ER) ANY ERROR? 
000080 1867+BIT X*0080' 002C50 6800 2E26 1982 BOFF LStf NO-ID WRITTEN SKEWED 
1868+* 002C54 6802 2E2C 1983 B $LSTF ID IS UNREADABLE 
186345 DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 002C58 6802 0000 soce CK4OR B +=¥ RETURN 
OO2B1A OO3A 1871+HEBLK pc A(58 NUMBER OF BYTES TO CONVERT VQ BG RK He i Ke I He Ke ho a a KK i a OK OK KK oR KK Kak a a ok a kk kok ok ok 
002B1C 258k 1872+ DC At($STUID FROM ADRS 1987 * THIS SUBROUTINE WILL UPDATE THE HEAD AND CYLINDER * 
OO2B1E 181A 1873+ DC A (TUWORK) AND THE TO ADRS 1988 * AREA OF THE ID FIELD % 
1874 COPY T7JA97 15NOV77 1VQBQ HK RM ke a a KK KKK KK KK KK KK KKK KK KK KK KK RK KK Kak OK ok kk tok ok Kak & 
1876 T7A97 TUIT SERRS 002C5C 6EOD 2CEC 1990 UPDTE HMVW 6,UPD57+2 SAVE THE RETURN ADDRESS 
187 7 +3 I IO ROI ICO CIO SG Gra iekh8cK 0 6 FER 7 64 « 002C60 6B08 3000 1991 MVW HDCYL,R3 GET THE HFAD AND CYLINDER 
1878+* 002C64 3352 1992 SRL 10,R3 SHIFT OUT THE CYL 
1879+* TEST UNIT 002C66 C324 2FFD 1993 UPDO1 CB HEADS+1, R3 CHECK FOR THE LAST 
1880+* 002C6A 1810 1994 JNE UPDOS DO THE NEXT TPACK 
1881+* 4963 DISK FILE VERIFICATION TEST 12/11/78 002C6C 6B08 3000 1995 MVW  HDCYL,R3 GET THE HEAD AND CYLINDER 
1882+% 002C70 3331 1996 SLL 6,R3 SHIFT OUT THE HEAD 
1883+* PURPOSE 002C72 3332 1997 SRL 6, R3 BYTE OF THE WORD 
Vette 009c78 1827 °° 1999 PDO? Ghz oUpp2o, io 
+* THIS ROUTINE WILL ATTEMPT TO ‘READ VERIFY" EVERY SECTOR ON 
1886+* THE 4963. ERROR AND/OR ALTERNATE SECTORS WILL BE LOGGED. 002C7A 4020 3000 0167 2000 MVWI es fie SET CYL TO 359 
1887+%* 002C80 4C18 2001 TBT {Bcd IS IT FIXED HEADS 
1888+* CALLING SEQUENCE 002C82 102A 2002 JOFF NO 
1889+ 002C84 4029 3000 0400 2003 AWL P30 ,xncr SET TRACK 1 
ee pe SUB PE /SEC HOICES aR OPHEE Toe ee es O0acke 8059 3000 0400 500% UPDOS AWI UPDSS HDCYL ADD 1 TO HEAD 
+ IS FG/SEC HD/CYL ‘ 
1B92c4 / / ‘i / 002C92 6A08 3000 2006 MVW HDCYL, R2 GET THE HEAD 
1893+* PROGRAM PASSES STATUS OF TEST OR FORMAT TO MDI AS FOLLOWS: 002C96 3221 2007 SLL 4 Be SHIFT OUT EXCESS 
1894+ BITS 0-15 NOT USED 002C98 3272 2008 SRL 14,8 ALIGN THE HEAD 
18954* OO2C9A 1804 2009 SNZ UPbOG NOT ZERO, CHECK NEXT 
1896+* RETURN CONTROL 002C9C 4020 2FFE 0000 2010 MVWI 0,FGSEC SET SECTOR TO 0 
ee kes SB2ERE F222 001 3512 uevoe Sur TERR ehege Meno! (co 
+ TN RETURN TO MDI SU 
18993% neete S08 OO2CA8 1008 2013 JZ ubpos GO SET THE oFfsét 
AeA SCG G ice Te tate Cte a Rete One ee EV OCECAAA SLES CEU CE CE CEU SY SSN ENE ASEH EE OO2CAA 7A42 0001 2014 SWI 1,R2 CHECK HADS 2,6,10 
002B20 6F0D 25D0 19014+T7A97 MVW SAVE RETURN ADDRESS OO2ZCAE 1004 2015 JZ UPDOT GO SET THE OFFSET 
002B24 4020 258E 7A97 1902+ MVWI SE a $TUID SAVE TU ID FOR DISPLAY 002CBO 4020 2FFE 0018 2016 MVWI X*Q018'*,FGSEC OFFSET OF 24 FOR SECTOR 0 
OO2B2A 4424 2588 1903+ MVA OPT TN1,R4 SET UP POINTER ADRS IN R4 002CB6 5013 2017 J UPD55 * 
OO2B2E 6E03 2916 1904+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 002CB8 4020 2FFE 0010 2018 UPDO7 MVWI X*'0010',FGSEC OFFSET OF 16 FOR SECTOR 0 
002B32 294A 1905+ DC A (SERR$) ERROR ADRS FOR INVALID PREP O02CBE 5O0O0F 2019 J UPD55 2 
1906+* 002CCO 4020 2FFE 0008 2020 UPDOS MVWI X*'0008',FGSEC - OFFSET OF 8 FOR SECTOR 0 
000018 1o08 56 Mipiaets Nt 0167 5052 UPD20 wr 9b? 23 CHECK 
FXD EQU- B FIXED HEAD INDICATO ECK FOR LAST CYL 
002834 425 388 1236 Frama avy g is Bzece 3834 A an nh He 
T7A7A MVWZ URESUL,R2 CLEAR TU RESULTS R INCREMENT THE CYL 
002B38 6803 2806 1911 BAL X1I0cS, Rb * 002CDO 6BOD 3000 2025 MVW R53 HDCYL REPLACE THE HDCYL 
002B3C 294A 1912 DC A (SERRS) OO2CD4 4c18 2026 TBT dp FXD) TEST FIXED 
002B3E 402B 2586 0700 1913 THI X*0700",CSTL5 LARGE FILE ? 002CD6 12DA 2027 JON 5 
002B44 120C¢ 1914 JON  BIGF YES -58 002CND8 4020 2FFE 0000 2028 UPD54 MVWI O0O,FGSEC SET SECTOR NUMBER TO ZERO 
002B46 402B 25B6 0600 1915 TWI X*0600',CSTLS SML FILE ? OO2CDE 9028 2FFE 2622 2029 UPD55 MVD FESEC. SKDCB+2 SET SEEK DCB ADDR. 
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1768 
1837 
1810 

4 86 
451 
452 
4 36 
2075 
2082 
2122 
2152 
856 
877 
883 
450 
102 
103 
46 
38 
40 
45 
1842 
1921 
1928 
1867 
2155 
1862 
407 
408 
409 
410 
803 
804 
805 
806 
440 
525 
1960 
1984 
622 
780 
782 
788 
790 
796 
797 
801 
800 
759 
438 
439 
469 
660 
1978 
474 
475 


GENERAL UTILITY 


NAME 
$CONC 
SCONX 
$SERRS 
SINTL 
$IOIN 
$SISB 
$LE 
$LIST 
$LSTA 
$LSTF 
$LSTZ 
$SRDID 
$RDVY 
SRKEW 
$TUID 
@DCADD1 
@DCADD2 
@NVLD 
@QUES 
@STOP 
@TUXX 
BEGIN 
BIGF 
BIGM 
BITO080 
BLK 
BUF PT 
B56 
B57 
B58 
B59 
CBO7 
CB15 
CB23 
CB40 
CE 
CICB 
CK40 
CK4OR 
CLDCB 
CNVT1 
CNVT2 
CNVT3 
CNVT4 
CNVTS 
CNVT6 
CNVT8 
CNVTS9 
CONVT 
cs 
CSA 
CSBUF 
CSDCB 
CSKEW 
CSTL5 
CSTL6 
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CROSS~-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION (00002916) IN 
>ARDRESS. HEX LOCATION (000029AC) IN 
HEX LOCATION(0000294A) IN 
1950 1969 ° 1979 2041 
HEX LOCATION (000025CE) IN 
HEX LOCATION (00002590) IN 
1679 1 1779 
HEX LOCATION (00002592) IN 
HEX VALUE (00000026) 
5AD HEX LOCATION(00002D7C) IN 
> ADDRESS. HEX LOCATION(00002D96) IN 
HEX LOCATION (0QQ02E2C) IN 
HEX LOCATION (00002EB4) IN 
HEX LOCATION (0000277C) IN 
HEX LOCATION (000027B8) IN 
0 2057 
glBX LOCATION (000027C8) IN 
HEX LOCATION(0000258E) IN 
4 1872 1902 
ADDRESS. HEX LOCATION(000019B8) IN 
DDRESS. HEX LOCATION(000019BA) IN 
OLUTE. HEX VALUE (00000600) 
OLUTE. HEX VALUE (00000100) 
OLUTE. HEX VALUE (00000102) 
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OLUTE. HEX VALUE (00000500) 
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RESS. 
RESS. 
RESS. 


= am 


HEX LOCATION (000029B6) IN 
HEX LOCATION(00002B5E) IN 
HEX LOCATION (00002B78) IN 


oh 


OLUTE. HEX VALUE (00000080) 
RESS. HEX LOCATION (00002EB8) IN 
2140 2142 45 2150 
RESS. HEX LOCATION(00002B12) IN 

OLUTE. HEX VALUE (00000018) 
OLUTE, HEX VALUE (00000019) 
OLUTE. HEX VALUE (0000001A) 
OLUTE. HEX VALUE (00000018) 
2106 2113 2119 
RESS. HEX LOCATION (00002762) IN 
RESS. HEX LOCATION (00002764) IN 
RESS. HEX LOCATION (00002766) IN 
RESS. HEX LOCATION (00002768) IN 
782 790 
ABSOLUTE. HEX VALUE (0000002A) 
1524 1638 1708 
ABSOLUTE. HEX VALUE (00000014) 
HEX LOCATION (00002BF0) IN 
HEX LOCATION (00002C58) IN 
1975 1976 
AD HEX LOCATION (000025F0) IN 
ADDRESS. HEX LOCATION (00002706) IN 
ADDRESS. HEX LOCATION (00002708) IN 
ADDRESS. HEX LOCATION (00002726) IN 
ADDRESS. HEX LOCATION (00002728) IN 
ADDRESS. HEX LOCATION (00002746) IN 
ADDRESS. HEX LOCATION(0000274C) IN 
765. 769.——Oo77 781 787 9 
ADDRESS. HEX LOCATION (00002752) IN 
ADDRESS. HEX LOCATION(0000275A) IN 
775.783 ~——«791 
a ADDRESS. HEX LOCATION (000026BE) IN 
ABSOLUTE. HEX VALUE (00000028) 
1528 1636 1677 17 
OLUTE. HEX VALUE (00000029) 
RESS. HEX LOCATION (000025AE) IN 
RESS. HEX LOCATION (00002630) IN 
RESS. HEX LOCATION (00002C42) IN 
RESS. HEX LOCATION (000025B6) IN 


1915 1917 
RESS. HEX LOCATION (00002558) IN 
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